home *** CD-ROM | disk | FTP | other *** search
- VERSION 4.00
- Begin VB.Form ShellDemo
- Caption = "Shell About Application Demo"
- ClientHeight = 3180
- ClientLeft = 1140
- ClientTop = 1800
- ClientWidth = 5160
- Height = 3870
- Icon = "SHELLDEM.frx":0000
- Left = 1080
- LinkTopic = "Form1"
- ScaleHeight = 3180
- ScaleWidth = 5160
- Top = 1170
- Width = 5280
- Begin VB.Label Label1
- BackStyle = 0 'Transparent
- Caption = "Click Help About to see ShellAbout Demo"
- Height = 285
- Left = 960
- TabIndex = 0
- Top = 90
- Width = 3015
- End
- Begin VB.Menu mFile
- Caption = "&File"
- Begin VB.Menu mExit
- Caption = "E&xit"
- End
- End
- Begin VB.Menu mHelp
- Caption = "&Help"
- NegotiatePosition= 3 'Right
- Begin VB.Menu mAbout
- Caption = "&About"
- End
- End
- Attribute VB_Name = "ShellDemo"
- Attribute VB_Creatable = False
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub mAbout_Click()
- Dim OtherInfo As String
- OtherInfo = "
- 1996 Visual Basic Broad-Band Network" & Chr(13)
- OtherInfo = OtherInfo & "Hitesh K. Soneji "
- OtherInfo = OtherInfo & "hitesh.soneji@industry.net"
- AppAbout ShellDemo, "Shell About Demo Application", OtherInfo
- End Sub
- Private Sub mExit_Click()
- End
- End Sub
-